home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / software / videoutils / a-g / ami2d / test / beam1.rexx < prev    next >
OS/2 REXX Batch file  |  1978-11-24  |  479b  |  37 lines
  1. /* simple beam */
  2. options results
  3.  
  4. if ~show('ports', "AMI2D") then do
  5.     address command 'run ami2d:bin/ami2d'
  6.     do while ~show('ports', "AMI2D")
  7.     end
  8. end
  9.  
  10. address ami2d
  11.  
  12. call 'ami2d:rexx/pstress'
  13.  
  14. h = 0.5
  15. L = 10.0
  16. E1 = 10.0e6
  17. nu1 = 0.3000
  18.  
  19. reset
  20. iso 1 E1 nu1
  21. do i=0 to 20
  22.     xx = L*i/20
  23.     node i+1 xx 0.0
  24.     node i+31 xx h
  25. end
  26. do i=0 to 19
  27.     quad4 i+1 1 i+1 i+2 i+32 i+31
  28. end
  29. dispx 1 0.0
  30. dispy 1 0.0
  31. dispx 31 0.0
  32. dispy 31 0.0
  33. forcy 51 (-100.0)
  34. check
  35. say result
  36. exit
  37.